home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch08 / instruct.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-31  |  2.4 KB  |  64 lines
  1. VERSION 2.00
  2. Begin Form frmInstruction 
  3.    Caption         =   "I n s t r u c t i o n s"
  4.    ClientHeight    =   4995
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   5400
  9.    Left            =   1035
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4995
  14.    ScaleWidth      =   7365
  15.    Top             =   1140
  16.    Width           =   7485
  17.    Begin TextBox txtInstruction 
  18.       Enabled         =   0   'False
  19.       Height          =   3975
  20.       Left            =   240
  21.       MultiLine       =   -1  'True
  22.       TabIndex        =   1
  23.       Top             =   360
  24.       Width           =   6855
  25.    End
  26.    Begin CommandButton cmdOK 
  27.       Caption         =   "&OK"
  28.       Default         =   -1  'True
  29.       Height          =   495
  30.       Left            =   3000
  31.       TabIndex        =   0
  32.       Top             =   4440
  33.       Width           =   1215
  34.    End
  35. Option Explicit
  36. Sub cmdOK_Click ()
  37.     frmInstruction.Hide
  38. End Sub
  39. Sub Form_Load ()
  40.     Dim Instruction
  41.     Instruction = "Instructions:"
  42.     Instruction = Instruction + Chr$(13) + Chr$(10)
  43.     Instruction = Instruction + Chr$(13) + Chr$(10)
  44.     Instruction = Instruction + "Click the Deal button to change the back of the cards."
  45.     Instruction = Instruction + Chr$(13) + Chr$(10)
  46.     Instruction = Instruction + Chr$(13) + Chr$(10)
  47.     Instruction = Instruction + "Double-click a card to see its face."
  48.     Instruction = Instruction + Chr$(13) + Chr$(10)
  49.     Instruction = Instruction + Chr$(13) + Chr$(10)
  50.     Instruction = Instruction + "Click a card to hide its face."
  51.     Instruction = Instruction + Chr$(13) + Chr$(10)
  52.     Instruction = Instruction + Chr$(13) + Chr$(10)
  53.     Instruction = Instruction + "Click the Deal button to deal a game."
  54.     Instruction = Instruction + Chr$(13) + Chr$(10)
  55.     Instruction = Instruction + Chr$(13) + Chr$(10)
  56.     Instruction = Instruction + "TO BE A WINNER:"
  57.     Instruction = Instruction + Chr$(13) + Chr$(10)
  58.     Instruction = Instruction + "Double-click between the Deal and the Back Card buttons and"
  59.     Instruction = Instruction + Chr$(13) + Chr$(10)
  60.     Instruction = Instruction + "then click the Deal button"
  61.     Instruction = Instruction + Chr$(13) + Chr$(10)
  62.     txtInstruction.Text = Instruction
  63. End Sub
  64.